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Regulars 


Editors Comment 


Issue l 
Jan/Feb 


Welcome to issue 1 of Oric 
Owner, the magazine for peo- 
ple who have bought or are 
about to buy an Oric 1 com- 
puter. 


The aim of this magazine is to 
keep you informed of the 
latest developments in hard- 
ware and software for the 
Oric, give you plenty of prog- 
rams to try, and to open our 
pages to readers with any- 
thing interesting to say about 
subjects concerning the Oric. 


On the Hardware side we in- 
tend to give you up-to-the- 
minute technical information 
on the latest Oric add-ons as 
they appear, whether they 
are produced by Oric Pro- 
ducts themselves or from 
other sources. We will print 
improvements or modifica- 
tions to existing hardware to 
allow you to “tune up” your 
system to give the best per- 
formance and hope to bring 
you constructional ideas to 
try if you are electronically 
inclined. 


Software is obviously a very 
important factor for any new 
computer and so we intend to 
print as much software as 
possible. Apart from giving 
you programs to type in on 
your Oric, we will look close- 
ly at some of the books which 
will start appearing soon. 


We intend to bring you a 
number of tutorial articles 
designed to give you in-depth 
information on some of the 
points not covered in the Oric 
manual, such as advanced 
graphics or programming the 
Oric in machine code. Inter- 
views with important Oric 
personalities will feature 
from time to time plus there 
will be plenty of news and 
gossip to amuse you. 
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Obviously, as with any new 
magazine, we have a great 
need for programs and arti- 
cles to print. If you have any 
ideas for articles or have writ- 
ten any interesting program 
or even discovered a new 
“undocumented”’ feature we 
would be delighted to hear 
from you. Don’t forget our 
I/O page for your letters and 
the Club page for user 
groups. 


You may have noticed writ- 
ten on the front cover that 
this magazine incorporates 
the Tansoft Gazette. The 
Tansoft Gazette was the ori- 
ginal magazine published by 
Tangerine for the Microtan 
System. As there are many 
similarities between the Oric 
and the Microtan Systems we 
will continue to publish arti- 
cles for the Microtan as long 
as people send them in. 


We are in constant need of good quality articles, programs and hints. If you have any that you think other Oric Owners would be 
interested in we would be delighted to see them. We do pay for articles printed and are able to help with layout and design of articles 
where needed. We also look forward to your correspondence for the I/O page. 
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Oric Launch 
Surprise 


At the official launch party of 


the Oric-1 computer on 
Thursday 27th of January at 
Oric’s Coworth Park Head- 
quarters, Peter Harding, 
Oric Sales Director, an- 


News..... News..... 


nounced 6 major deals which 
will bring the Oric into the 
High Street. Greens will be 
selling the Oric through their 
outlets around the country. 
Chinon will be taking a large 
chunk of the European ex- 
port market. Micro- 
Peripherals who have over 
200 distributors will be aim- 
ing for the computer enthu- 
siast. 


W. H. Smith will be taking 
Orics from the beginning of 
April and will be selling them 
mainly through their larger 
stores. All of Laskys stores 
will be selling Orics from the 
end of February. The Micro 
C branch of Currys will also 
be selling Orics from the end 
of February. These deals tot- 
al over 200,000 Orics, the 
majority of which are 48K 
models. 


New 


Software 
House 


Firefly Software is a new soft- 
ware house formed specifi- 
cally to support the Oric. A 
full range of business and lei- 
sure software is under de- 
velopment and a consultancy 
service is also available. 


Full details from Firefly, 01- 
200 6209. 


New Titles 
from 
Tansoft 


Tansoft have announced the 
first titles of their range of 
Oric Software. 


Zodiac is a 36K adventure 
game that takes place in a 
strange land populated with 
weird people and animals. 
You have to search for the 12 
cunningly disguised signs of 
the zodiac which will lead you 
to valuable treasures. Zodiac 
costs £9.99 including V.A.T.., 
postage is 40p. 


Oric-Chess plays a powerful 
game and uses high resolu- 
tion graphics and features 5 
levels of play and allows Cast- 
ling and En-Passant. Oric- 


Chess costs £9.99 + 40p 
postage. 


News..... News... 
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News _ 


News Brief 


Their first business 
package is Oric-Base, a 
full database retrieval 
system, which allows the 
setting up of complex 
datafiles, selection and 
sorting of data and the 
printing of full reports. 
Oric-Base costs £15 and 
includes a full manual, 
postage is 40p. 


@ 
Intelligent 
Orics? 
Intelligent Software in Som- 
erset have announced 4 new 
titles for the Oric to be re- 


leased towards the end of 
February. 


These are an assembler pack- 
age, a graphics toolkit, a mul- 
ti-games tape, and a multi- 
games tape in machine code. 
Full details from Higher 
Combe, Combe Florey, 
Taunton, Somerset. 


Oric 
Trader 


Taipan is a “Trading Adven- 
ture’ game based around the 
China seas in the 19th cen- 
tury. You are involved in 
buying, selling and transport- 
ing goods from one part to 
another. There are plenty of 
hazards such as storms, bank- 
rupt customers and the dan- 
ger of strong-arm tactics from 
the Emperor. More info from 
Jaysoft 22 Dane Acres, 
Bishops Stortford, Herts. 


Full 
Manual 
Ready 


Oric Products inform us that 
the full instruction manual 
has now been completed and 
is being sent out to all those 
who only have the prelimin- 
ary manual and has all those 
annoying misprints — cor- 
rected. 


News..... News..... News..... News..... 
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News Brief 


alamanbder 


of ware 


Based in Brighton, newly formed Sala- 
mander Software are putting together 
a range of Software for the Oric. 
Under development are a number of 
games including Backgammon, Othel- 
lo, Star-Trek, a maze game and a com- 
plex adventure game. They also are 
intending to release Utility Software in 
the near future. 

More details on: 

(0273) 771942 


ORIC 
IS INDEED 


INTERNATIONAL 
Trade Distribution 


Benelux 


MICROWORIED 


EURORE 


297 BRUSSELSE STEENWEG 
B1950 KRAAINEM/BRUSSELS 
PUBLIC ENQUIRIES: (09/00) 02 7675165 


IY icrotan 
sale 


Negotiations are almost complete for 
the sale of Tangerine’s Microtan range 
to Microtanic Hardware in Dulwich. 
This will allow Tangerine to concen- 
trate on the Oric computer while 
allowing the Microtan range to con- 
tinue to be supported. All requests for 
technical information, orders, or re- 
pairs should be directed to Microtanic 
Hardware on: 

01-693-1137 


ORIC-SOFTWARE 


LUNAR LANDER and ASTEROIDS 
ONE TAPE/TWO ACTION-PACKED GAMES WITH HIGH 
RESOLUTION COLOUR AND SOUND 
PLUS Fully explained program listings - 
games then learn the tricks of the trade! 


Enjoy the 
£5.00 


and ASSEMBLER’'S 


ASSEMBLER 
NOTE-PAD. 


Auto line-numbering; up to 6 character labels; hex or 
decimal numbers with simple arithmetic on operands; full 
syntax checking with error reports; two parse assembler 
maintains and updates list file; comprehensive documen- 
tation AND Aé4 size pad specially laid-out for clear and 
rapid assembler programming. 

£9.95 


(Pads available separately £1.30 inc. p&p) 


DURELL SOFTWARE 
HIGHER COMBE - COMBE FLOREY 
TAUNTON - SOM TA4 3JF 


News..... News..... News..... News..... 
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Software 
Conversion 


One of the problems facing 
anyone who buys a computer 
that is new on the market is 
getting enough Software to 
run it. We are fortunate with 
the Oric 1 that it is based on 
the 6502. This makes a num- 
ber of programs already writ- 
ten for the Pet, Apple, Mic- 
rotan, Vic etc. readily con- 
vertible onto the Oric. This is 
particularly easy if the origin- 
al computer runs Microsoft 
Basic. The only problems are 
likely to be if the program in 
question uses machine speci- 
fic features such as Hi-Res 
graphics commands, monitor 
sub-routines and peeks and 
pokes. By careful examina- 
tion of the program it is often 
possible to work out what the 
commands are doing and to 
convert them to the appropri- 
ate Oric commands. 


Acorn and 
Sinclair ? 


You will sometimes run into 
problems when converting 
programs from machines that 
don’t use Microsoft Basic. 
Sinclair and Acorn have both 
written their own versions of 
Basic which although on the 
surface appear to be fairly 
standard you will find subtle 
differences in the way they 
work. Differences in the way 
the computer handles float- 
ing point numbers (numbers 
with a decimal point), how 
numbers are represented in- 
ternally in the machine and 
how numbers or characters 
are stored in arrays can all 
cause a fairly simple program 
to give the most unexpected 
results. 


oftware Scan 
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How the machine handles 
truth values can cause 
GOTO’s and GOSUB’s to go 
wildly astray if not converted 
correctly. Oric’s Basic uses 0 
to represent false and —1 to 
represent true. This can easi- 
ly be proved with the follow- 
ing routine: 


10 A=3 

20 B=4 

30 C=3 

40 PRINT (A = B):REM 
DOES A equal B? 

50 PRINT (A = C):REM 
DOES A equal C? 

60 END 


When executed this program 
will print 0 at line 40 and —1 
at line 50, showing that A 
does not equal B but A does 
equal C. However some 
machines use 0 to represent 
false and +1 to represent 
true. Unless a value is nega- 
tive, Oric Basic won’t recog- 
nise a true value. So although 
the program will work cor- 
rectly if all logic tests come 
out as False, the Oric won’t 


be able to recognise them if 
they are true, this will usually 
cause the program to go hay- 
wire or to go into endless 
loops when least expected so 
BEWARE! 


Getting back to software for 
the Oric you will be pleased 
to know that several software 
companies are gearing up to 
start producing software for 
games and business use. 
Many of the companies are 
already well known in the 
ZX81 and Spectrum fields. 
Ourselves (Tansoft that is) 
are completing a number of 
packages which you should 
start hearing about very 
shortly. 


Apart from Forth, which 
some of you will already 
have, we are looking at some 
other languages such as PAS- 
CAL and LOGO. An ex- 
tended Basic, which gives the 
equivalent of B.B.C. Basic is 
almost ready to go into 
production — keep in touch 
for more details. We also 


have a number of games 
under development including 
Zodiac — a 36K adventure 
game, a Flight Lander and 
hopefully a chess game. We 
also have a Data Manage- 
ment program called, pro- 
visionally, DBASE. This en- 
ables you to enter data very 
simply into the machine and 
to manipulate it with the least 
amount of fuss. You can sort 
records, tot figures up, keep 
running totals and print nice- 
ly formatted reports. We 
have started to use it to keep 
track of royalty payments to 
people who have written soft- 
ware for us — so it must be 
good! 


Coming 
Soon! 


In the next issue I hope to 
examine some of these pack- 
ages in more detail and also 
to bring you news of what 
other software companies are 
doing for the Oric. 
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SOPCUUArC Ie [TY Wcrocan 


Faster than Forth, special extensions to improve realtime performance. 


CRUNCHCALC SPREADSHEET £15 
Fully featured financial modelling program. Needs TANRAM. 


CRUNCH TRANSPORTER £15 

Complete solution to the standard transportation problem. Automatic 
perturbation and deperturbation. 

CRUNCHMATH SCIENTIFIC CALCULATOR £10 

Evaluates mathematical expressions. 26 variables store values or complex 
formulae. Includes standard maths functions e.g. SIN, EXP, FACTORIAL, etc. 
Extra functions include: combinatorials, permutations, binomial, Poisson, 
normal and standardised normal distributions. 


TRANSPORTER AND CRUNCHMATH ARE ALSO AVAILABLE FOR THE ORIC 


Send cheques to: CRUNCH COMPUTER SYSTEMS LTD, 
76 VICTORIA RD., SWINDON, WILTS 


The lottery winner is Mr. T. C. Haines of London. A compiler is on its way. 


FIREFLY SOFTWARE 


ooifware and Consultancy 
Oecrvices 


Available March: An 
adventure game for the 
Oric-1 with proper descrip- 
tions, real English com- 
mands, for those who are 
fed up with “GET GOLD” 
and “| don’t understand”! 


Programming undertaken 
for the Oric-1, Microtan 
and Dragon computers. 


Professional work by ex- 
perienced analyst/prog- 
rammer, author of Zodiac/ 
Dbase and contributor for 
Tansoft Gazette. 


Coming soon: A series of 
games, business _pack- 
ages, and utilities for the 
Oric. 


Programs listed 1p per 
line. 


Write for details of above 
to: 


Firefly Software, 
8, Poolsford Road, 
London NWS 6HP. 
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_ Features _ 


An Interview with 
Dr Paul Johnson 


Let’s start by saying that 
Q you are the main figure 

behind the Oric-1, par- 
ticularly the ULA. Why do 
you attach so much import- 
ance to the ULA? 


The Gate Array (or 
Aus looks after all 

the video signals. It 
replaces a large number of 
discrete and TTL compon- 
ents. Using the Gate Array 
means that you can save a lot 
of board space and cut down 
on component and produc- 
tion costs. 


A major advantage of the 
Gate Array is that you can 
make the Video far more 
sophisticated than you could 
using discrete chips. It allows 
you to go “over the top” — 
you can make it do all sorts of 
things that you could not do 
any other way. Another 
advantage is that by using the 
Gate Array to handle all the 
memory control signals we 
can exploit low cost DRAMs 
(Dynamic RAMs). Without 
the Gate Array the 16K Oric 
would cost about £250. 

Q methods of design 
differ from those of 


other Micro manufacturers? 


We took a lot more care 
Boe: it. We designed 

the Logic, we bread- 
boarded it, we thoroughly 
checked it out. We went over 
to the ULA manufacturers 
(C.D.I. in California) and sat 
down with their engineers 
and checked every stage of 
development from the logic 
design, layout, and computer 


In what way do your 


“Tt allows you to go 
‘over the top’” 


simulations, even testing the 
first prototype chips and de- 
signing test programs. 


Another aspect of the design 
was the care taken to ensure 
that the logic circuitry took 
account of the limitations of 
the Gate Array. We designed 
around its limitations to ex- 
ploit it to the utmost. Where- 
as other manufacturers 
couldn’t have done so with 
their Gate Arrays or else they 
wouldn’t have experienced 


the problems that we have 
heard so much of lately. They 
either used a Gate Array that 
wasn’t up to the job or else it 


was simply poor logic design. 
Q use ULAs, due to the 

complexity of the de- 
sign, it is often possible to dis- 
cover new features or ways of 
using the machine that weren’t 
envisaged in the original de- 


sign. Have you found any 
such features with the Oric? 


In other machines that 


There are going to be 
Aes of features of the 

ULA that weren’t in- 
tentionally designed in. It is 
almost inevitable that when 
you design something as com- 
plex as a Gate Array some- 
one will find a hidden feature 
that can be of some use. The 
same thing has happened 
with processors, people have 
found new instructions that 
aren’t documented. 
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Features 


The danger is that it is never 
possible to be sure exactly 
what’s going on inside the 
chip and you could get some 
strange side effects. 


Was there any particu- 
Q lar reason why you 
chose the 6502A in pre- 
ference to, say, the Z80 or 


6809? 


It has always been a 
Dreier processor to use 

in a low-cost product. 
The Dragon uses a 6809 
which has a very similar bus 
structure to the 6502. We 
could have used a 6809 in the 
Oric but there’s just not 
enough software around at 
the moment to make it worth- 
while. 


What is the difference 
between the 6502 and 


the 6502A? 


The 6502A runs twice 
A: fast as the 6502 

but in fact we’re not 
running it twice as fast. We’re 
using the 6502A because 
we’re doing some _ funny 
things with the clock signal 
and the ordinary 6502 is not 
guaranteed to work under 
those conditions. You could 
knock the speed up a bit but 
of course you’d start losing 
the video and the dynamic 
RAMs. So unless you had the 
high speed versions of every- 
thing there would be no 
advantage in running the 
6502A at full speed. 


Will any other proces- 
sors be available in the 


future? 


We might do a 6809 
BD ccsion of the Oric in 

small numbers for the 
real enthusiast. We would 
then be able to put FLEX on 
it. Obviously because of the 
small quantities involved the 
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“There’s not enough 
software for 6809” 


price would have to be 


higher. 


In the Oric brochure a 
lot of fuss is made 
about the Tangerine 


cassette format. Why do you 
think it is so good? 


It’s been proven over 
BD 2ivcu three —_—-years 
with thousands of sys- 


tems and we have had very 
little trouble with it. Obvi- 


ously at the end of the day the 
reliability of a cassette system 
depends on the quality of the 
Owner’s equipment. He may 
have the best cassette deck in 
the world but, if the connec- 
tions aren’t right or if the im- 
pedances don’t match then 
he’s going to start having dif- 
ficulties. The hardware in the 
Oric is so simple that there is 
very little that can go wrong 
with it. If a chap phones up 
and says he can’t read prog- 


rams then 99 times out of 100 
the problem is at the cassette 
recorder end. 


Which peripherals for 
Q the Oric are we likely 

to see next? How soon 
can discs be expected? 


The next peripheral 
Boe will see for the Oric 

is the Modem, followed 
very quickly by 5%” discs. 
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An Interview with 
Dr Paul Johnson 


; 


Is there anything you 

can say about the 

Modem? I know that 
one end plugs into the back of 
the Oric and the other end has 
aG.P.O. lead. 


It is designed to be a 
direct-connect Modem 
‘to the Post Office 
line and will use the Viewdata 
standard so that you can com- 
municate with Micro-Net 
800, closed user groups and 
who knows, Oric may set up 
their own database in Ascot. 


Will you be able to put 
Orics back to back over 
the phone-line, if the 
baud rates are program- 


mable? 


12 Oric Owner 


See 


YOU may be able to. 

We’ve not decided yet. 

It depends on what chip 
we finally use. There is a chip 
that would allow people to 
have their Orics connected 
back to back on the phone 
line. It’s a more expensive 
chip and would probably 
need its own power pack as 
the Oric probably wouldn’t 
be able to power it directly. 


What 3 inch 


discs? 


about 


We've got to wait until 

\ we see who wins. There 
‘are three formats at 

the moment 3”, 32” and 


100mm. It would be dis- 
astrous to back the loser. 
What’s happening is that 54” 
drives are coming down in 
price so dramatically, be- 
cause of the Micro-Floppy, 
that I think it’s fairly safe at 
the moment to go for the 
54". It gives people plenty of 
storage, although ata slightly 
higher price than Micro- 
Floppies but as you can’t get 


Micro-Floppies anyway 
there’s no real problem. 
We'll go over to Micro- 


Floppies when and only 
when, we can see which one is 
going to be the clear winner. 


Can you tell us anything 
about your future plans 
for the machine? 


» Sure as eggs are eggs! 
) We are going to have a 
© product range for the 
Oric. The marketplace has 
decided that small computers 
are now consumer products. 
There’s only one way to sell 
consumer products and that’s 
through retail outlets and big 
retail chains. A retailer won't 
be happy just selling a box 
with a computer in it. He’ll 
want to sell software, cassette 
recorders, discs, printers, 
and so on. So it is essential 
that we supply him with a full 
range of accessories. I can’t 
tell you at the moment which 
add-ons we’re working on but 
you can be assured that 
they'll make the Oric more 
powerful than machines cost- 
ing even treble the price. 


@ 


THE FLEXIBLE COMPUTER SYSTEM FOR THE FUTURE 


How can Tangerine promise you a 
professional computer for only £129.00? 
Because, unlike most computer builders, 
we have designed the U.L.A. ourselves. 


This makes the ORIC-1 substantially more 
reliable and versatile to work with and 
what's more, at £129.00, you get a 
professional system well below the price of 


all leading manufacturers. 

We can give you prompt service, quality, 
reliability and full technical backup: The 
ORIC Computer System will guarantee you 


that and more: 


@ 8 colour graphic display (8 foreground + 8 
background) 


@ 40 character by 28 line colour text display 


@ High resolution graphics (240/200 pixels) 
240 across screen, 200 down 


@ 96 User defined graphics symbols 

@ Microsoft BASIC software 

@ 6 octaves of music with Hi-Fi output and 
4 preset sound effects — Shoot, Explode, 
Ping, Zap 

@ Centronics printer interface (compatible 
with a whole range of standard printers) 

@ Optional Communications Modem 
(allowing access to 200,000 pages of 
Prestel and direct link with other computers) 
@ Typewriter style keyboard 

@ Professionally written user manual by 
well-known computer authors 

@ Oric Owner Magazine included with each 
ORIC 1 purchased 

@ Tan-Forth supplied free with every mail 
order 48K Model 

@ Extended Basic (BBC etc) available soon 


@ Full range of business and leisure software 
coming shortly. 


SHIFT 


Comal saat  eaetege os 7 ez z 
Lad Raaasassas 


(Please allow 28 days for delivery) Subject to availabilities. 


Order your ORIC-1 direct from the designers 


BY POST: You can pay by cheque, postal BY PHONE: Just ring our telesales number 
order, ACCESS —- BARCLAYCARD-VISA ELY (0353) 2271/2/3/4 


Price Inc. VAT | 
£129.00 
£169.95 


| Total 
! 

|. _ £79.00 

| 

| 


Please delete/complete as applicable 

*l enclose a cheque/p.o. payable to TANGERINE 
COMPUTER SYSTEMS LTD. For £ 

Please charge my Access, Barclaycard, Visa No 


Name Item 
ORIC-1 


ORIC-1 48K RAM 


Qty | 


Address 16K RAM 


ORIC Owner Magazine (Bi-monthly) 
Postage | and packing 


£10.00 
£5.95 
TOTAL £ 


| 
| 
| 
ORIC Communic ations Modem | 
) 
_| 


if you require a VAT receipt please tick ia Please send me a full colour brochure L] 


TANGERINE COMPUTER SYSTEMS LTD. 3 Club Mews, Ely Cambs CB7 4NW 


Software 


And Forthly... 


One of the major advan- 
tages of using Forth ona 
micro is the transporta- 
bility of programs from 
one machine to another. 
Most of the Forth prog- 
rams described in this 
column should work 
quite happily on the 
Oric, the Microtan, or 
any other machine that 
uses FIG-FORTH. 


As a simple exercise in 
writing Forth programs 
that are actually useful I 
have attempted to cre- 
ate a spreadsheet prog- 
ram that although fairly 
basic in concept, allows 
expansion and improve- 
ment in any desired 
direction. A spread- 
sheet program simulates 
on the computer all the 
rows and columns of a 
ledger sheet such as used 
by accountants or book- 
keepers. The computer 
automates the tasks of 
entering the figures, cal- 
culating totals and print- 
ing reports. 


The 
Program 


Variables FIRST and 


LAST are defined for la- 
ter use as indicators to 
which columns are to be 
displayed on the screen. 
ARRAY is a defining 
word that is used to cre- 
ate a two dimensional 


array of any desired size. 
This is used in the next 
line to create a twelve by 
twelve array named 
SPREAD. 2FETCH is a 
word which returns the 
address of any supplied 
coordinates. To initial- 
ise the array 2CLEAR is 
used. COLS, SPREAD 
and DISPLAY are used 
to format and print the 
SPREAD array on the 
screen. 


One of the more useful 
features of this program 
is the ability to add up 
rows or columns of fi- 
gures and store the re- 
sults at the sides of the 
array. ROWCALC and 
COLCALC _ perform 
this function on the sup- 
plied row or column. 


The remaining FORTH 
words are the higher 
level commands that are 
necessary to run the 
program. ENTER 
allows data to be stored 
in the array. INSTRUC- 
TIONS simply prints the 
various program options 
and asks for user input. 
SHOW prompts the 
user for the start and end 
columns to be displayed 
(between 0 and 11). 
Note that row 11 and 
column 11 are used to 
keep totals in and data 
should not be entered 


into them _ directly. 
Array position 11,11 is 
used to display the grand 
totals of rows or col- 
umns. SPREAD- 
SHEET is the complete 
program and _= simply 
loops around acting on 
the users input. The IF 
.. . ENDIF statements 
could probably be re- 
placed by a CASE state- 
ment for greater effi- 
ciency. 


Expansion 


There are several ways 
of improving the prog- 
ram which may become 
obvious after being in 
use for a while. Apart 
from simply tidying up 
the code the array could 
be made larger to 
accommodate more 
data. A facility to allow 
names of rows or col- 
umns could be added, 
such as months or 
account dates. Extra cal- 
culation facilities could 
be added such as percen- 
tages or multiply and di- 
vide and perhaps an op- 
tion to allow the user to 
define his own arithme- 
tic treatments. 


Finally 


I look forward to seeing 


any extensions or im- 
provements you may 
make to the program. 
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Software 


SCR #1 
0 (FORTH SPREADSHEET 1 OF 3 . Paul Kaufman Dec.82) 
1 0 VARIABLE FIRST O VARIABLE LAST a 


2 : ARRAY <BUILDS OVER OVER , , * 2 * ALLOT DOES> 4 + SWAP 2* + ; 
3. 12 12 ARRAY SPREAD 

4 : 2FETCH -2 SPREAD @ * + SPREAD ; 

5 : 2CLEAR 12 0 DO I 12 0 DO 

6 DUP I 2FETCH 0 SWAP ! LOOP DROP LOOP 

7: COLS 4 SPACES LAST @ 1 + FIRST @ DO I 4 .R LOOP; 
8 : .SPREAD (Print Spread array) 

9 COLS CR CR 12 0 DO I I 2 .R 2 SPACES 

10 LAST @ 1+ FIRST @ DO DUP I 2FETCH @ 4 .R 
11 LOOP CR DROP LOOP; 
12 : DISPLAY ( First Last) 
13 LAST ! FIRST ! .SPREAD; 
14 -+ 
15 (More on next screen) 


SCR # 2 

0 (Forth spreadsheet screen 2 of 3) 

:ROWCALC ( x ROWCALC) 

DUP 0 SWAP 11 2FETCH ! 11 0 DO DUP DUP I 2 FETCH @ SWAP 11 
2FETCH +! LOOP DROP FIRST @ LAST @ CLS DISPLAY ; 

: COLCALC ( y COLCALC ) 

DUP 0 SWAP 11 SWAP 2FETCH ! 11 0 DO DUP DUP I SWAP 2FETCH @ 
SWAP 11 SWAP 2 FETCH +! LOOP DROP FIRST @ LAST @ CLS DISPLAY; 
:ENTER ( Val x y ENTER ) 

CR ." Enter Value" IN#CR ." Enter Row "IN#CR 

9. "Enter Column " IN#CR 2 FETCH ! FIRST @ LAST @ DISPLAY : 
10 : INSTRUCTIONS . "1)Clear Array 2)Enter Value" 

11 CR ." 3) Display Array 4)Calc Row " CR ." 5)Calc Column" 


on OO SS WwW DN 


12." 6) End Program " KEY DUP EMIT ; 
13 

14 

15-5 

SCR #.3 


0 ( Spreadsheet 3 of 3 ) 

:SHOW CR . "Enter Start Col " IN# CR." Enter End Col " 
2 IN#CR DISPLAY ; 

S : SPREADSHEET 2CLEAR CLS O FIRST ! 4 LAST ! 

4 BEGIN CR INSTRUCTIONS DUP 49 = IF 2CLEAR CLS ENDIF 

5 DUP 50 = IF ENTER ENDIF 
6 
7 
8 


—s 


DUP 51 IF SHOW ENDIF 

DUP 52 IF CR ."Enter Row ' IN#ROWCALC ENDIF 

DUP 53 = IF CR ." Enter Column " IN#COLCALC ENDIF 
9 DUP 54 = IF SP! QUIT ENDIF 
10 AGAIN ; 
i Ss 


i] 
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Space. Deep dark Space. All 
systems functioning, condi- 
tion green. Aboard the En- 
terprise all is quiet, the crew 
looking forward to a few 
hours relaxation on the star- 
base just located in an adja- 


cent quadrant. but wait, 
what’s this? A long range 
scan reveals a Klingon cruiser 
in the vicinity. Condition yel- 
low, set course and start warp 
drive on an intercept course. 
Klingon in phaser range, bat- 
tle stations, condition red. 
Phaser targeting enabled Fire 
phasers maximum power. 
Missed. Try a Photon Torpe- 
do, targeting designate 45 de- 
grees. Missed again. Klingon 
begins to fight back. Engage 
course computer to give a 
more accurate firing angle. 42 
degrees, fire Torpedo again. 
A hit! Klingon cruiser des- 
troyed. 


Software 


The above scenario is simu- 
lated by this Basic game. You 
play the part of Captain Kirk 
(Sorry, Admiral Kirk!) navi- 
gating the Enterprise through 
the galaxy destroying Kling- 
ons whenever you can find 
them. You will need a 48K 
Oric to run the program and 
it should be entered on the 
Keyboard exactly as the list- 
ing below shows. Microtan 
users can run the program if 
they remove the colour and 
sound commands. 


On entry to the program you 
will be asked to enter a num- 
ber to seed the random num- 
ber generator. You will then 
be given your orders by Star- 
fleet. A short range sensor 
scan will be displayed and a 
list of possible commands. 
These function as follows: 


Option 0, Set Course 


This allows you to move from 
quadrant to quadrant or sec- 
tor to sector. When asked for 
the course you should enter 
an angle between 0 and 359 
degrees. The directions are as 
illustrated below: 


315° 0° 45° 
270° 90° 
225° 180° isn” 


When asked for warp factor 
enter a whole number (1-8) to 
jump quadrants or a fraction- 
al number to move sectors 
within a quadrant (e.g. -2 will 
move you one sector.) 


Option 1, Short Range Scan 


Each dot indicates one sec- 
tor. E means Enterprise 
(You!), * means a star, B, a 
starbase and K means a 
Klingon. A display of the cur- 
rent ship status is also given. 


Option 2, Long Range Scan 


This displays the quadrants 
surrounding the quadrant 
you are currently in. There- 
fore the number in the middle 
of the screen is where you 
are. The numbers are broken 
down as follows: 


Units : Number of 
Stars in 
quadrant 

: Number of 

Starbases 

Number of 


Klingons. 


Tens 


Hundreds : 


If you find a starbase you can 
dock with it by moving next 
to it. This will refuel you and 
recharge your weaponry sys- 
tems. 
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Software 


Option 3, Fire Phasers 


Will fire on any close object, 
power diminishes with dis- 
tance. 100 units are usually 
enough to damage a Klingon 
Cruiser. 


Option 4, Fire Torpedoes 


A more accurate weapon. 
Will only work within a quad- 
rant. Requires you to enter 
the firing angle. This can be 
calculated accurately by us- 
ing the course computer. 


Option 5, Damage Report 


Indicates state of repair of 
vital systems. The more nega- 
tive the number given is, the 
more severe is the damage. 


Option 6, Course Computer 


Calculates distance and angle 
of object relative to Enter- 
prise. Enter the number of 
sectors (dots) the object is 
above or below you for ver- 
tical coordinate. A positive 
number means above you, 
negative means below. For 
horizontal coordinate enter 
number of sector to the left or 
right of you (+ or —). Dis- 
tance is printed as warp units. 


Option 7, Galaxy Scan 


As for Long Range Scan ex- 
cept prints map of entire 
known galaxy. Should only 
be used as a last resort. 


Thus equipped with the 
above weaponry and control 


) x pene = ix 


“0.9 Se 
a 


systems you are ready to do 
battle to save the Starfleet 
Federation. The program 
leaves some room for im- 
provement such as using bet- 
ter graphics to represent 
ships or stars. 


The Galaxy Scan could be 
altered so that it only prints 
quadrants that have been vi- 
sited. It will take you several 
hours to learn and master the 
program so I wish you luck 
and keep me informed of any 
new improvements you may 
make. 
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© REM START HERE 

SO REM STARTREE: 

200 REM PAUL B KAUFMAN OCT 1930 

250 PAFER7: INKO 

400 DIMS$(5),S%(8,8) ,D%(8,8) ,R(7), 3110) 

SOO S$(1)="."35$ (2) ="kK"s S$ (3S) ="K"2 S$ (4) ="F" SSG (5) ="E":0g=" 9 

1100 DEFFNA(X)=INT(RND(1)*X) +1 

1200 PRINTCHRS (12) :FORI=1T06: PRINT: NEXT:FPRINT" STARTREE": 
1300 WAIT100 . 

1400 PRINT:PRINT:FRINT:FRINT:PRINT: INPUT"Initialise,enter any numb 
er"sA 

1600 FORI=1TOA: B=FNA(I) sNEXTI 

1900 PRINTCHR$ (12) :PRINT: PRINT: PRINT: PRINT"Starfleet orders imminen 
t... "SPRINT 

2100 K1=FNA (20) +7:S1=FNA (149) +150: Bi=FNA(9) 

2400 .FORI=1T07:R(1)=0:NEXTI 

2700 FORI=1T08:FORJ=17T08:S% (1,39) =0:NEXTJ:NEXTI 

3200 Li=O:L2=0: DI=INT ( (FNA(1999) +2000) /10) k10:D3=40-FNA (8) :D2=D3+D1 
3700 FORI=1TOSi 

3800 A1L=FNA(8) :A2=FNA(8) : IFSZ%(A1,A2) =8BTHENS800 

4100 SZ(A1,A2)=S%(A1,A2)+1:NEXTI ; 
4300 FORI=1TOK1:A1=FNA(8) :AZ=FNA (8) :SZ%(A1, AZ) =S% (Al, AZ) +100: NEXTI 
4800 FORI=1TOB1:A1=FNA(8) :AZ=FNA(8) :S%(A1,A2) =S% (AL, AZ) +10:NEXTI 
S300 E1=FNA(8) :E2=FNA (8) :E7=FNA (8) :EG=FNA (8) :P=3000:C1=0:T1=10 
6000 PRINTCHR#(12):PRINT: PRINT: PRINT" ORDERS: STARDATE = "3;Di:FR 
INT 

6200 PRINT"Captain Kirk, you must destroy" 

6300 PRINT"an invasion force of "skK13;"Klingons" 

6400 PRINT"You have "3D3;"Solar days":PRINT"to complete your missio 
nn." 

8100 PRINT:PRINT: PRINT" PRESS SPACE TO CONTINUE "3:GETV9:PRINT 
9800 GOSUB19700 

9900 GOSUBI1300 

10000 GOSUB14800 

10100 GOTO11300 

10300 GOSUB31300 

19400 PRINT"Command: "3 :GETC2$: C2=VAL (C2$) s PRINT 

10600 REM 

10800 IFC2>7THEN1O400 

11200 ONC2+1G0T026600, 14600, 23200, 43200, 47600, 13300,54500, 52100 
11300 Y=1:GOSUB12900 

11600 GOSUB12900 

11700 PRINT"O=Set Course 1=S/R Scan" 

11800 GOSUB12900: GOSUB1 2900: GOSUB1 2900 

12100 PRINT"2=L/R Scan 3=Fire Fhasers" 

12200 GOSUB12900: GOSUB12900 

12400 PRINT"4=Fire Torps 5S=Damage Report" 

12500 GOSURLS900 

12600 PRINT"S=Course Comp. 7=Galaxy Scan":FRINT 

12800 GOTO1LO300 

12900 Y=¥+1:RETURN 

13300 REM DAMAGE CONTROL 

13400 IFR(6) <OTHENI4400 

13500 PRINTCHRS (12) :PRINT:FRINT" Device State of Repair" 

13600 FRINT" ; 

13700 FORC2=17T07: GOSUBS9300:FPRINT" "ETAB(I16) R (C2) 

13800 NEXTC2:PRINT: PRINT: GOTOLOS00 

14400 PRINT"Damage Control not available" 

14500 GOTOLO300 

14600 GOSUBI4890 

14700 GOTO1IO300 

14800 REMSHORT RANGE SCAN 

14900 LFR(2) >=OTHENLS 200 


14700 GOTOLOZO0 
14800 REMSHORT RANGE SCAN 
14900 IFR(2) >=OTHENIS200 
15000 PRINT" **S/R SENSORS ARE QUTxx" 
15100 RETURN 
15200 GOSUBL9700 
15300 FRINTCHRS (12) " SHORT RANGE SENSOR SCAN":FRINT 
5500 PRINT" 12345678" : 
15600 FORI=17T08:FPRINTSFC (3) ::FORJ=1T08 
15800 29=D% (1,0) +1: PRINTS$ (29) :NEXTI . 
16100 ONTGOTO16200, 16400, 17600, 17800, 18000, 18200, 18400, 184600 
16200 FRINT"1 Stardate "3D1°GOTO18500 
16400 FRINT"2S Condition "2: IFCAOROTHEN1 S800 
16600 PRINTCHR$ (27) "RGreen":GOTOLBSO0 
148900 [FC1L>1THENL7100 
14900 PRINTCHRS (27) "S Yellow": GOTOLS500 
17100 IFCL*2THENI7400 3 
17200 PRINTCHRS (27) "O Red" sGOTOLSSO0 
17400 PRINT"Docked" :GOTOL8500 
17600 PRINTS  Guadeant "SE13"= "“FE2:GOTO1a500 
17800 PRINT"4 Sector "“SE72"= "sEG:GOTO18500 
18600 PRINT"S Energy "3 CINTCP RIO) /10) sGOTOL8S00 
18200 PRINT'’S Tarpedoes  "sT1i:GOTOL8500 
18400 PRINT"? Klingons 9 "yk 
19500 GOTOLS8aOO 
18400 PRINTS Days left 'sD2=DirFRINT 
18900 NEX TIRE TURN 
19000 REM STRING OF DASHES: F RINT 
19200 FORTI#1TOCS:PRINT'="2sNEXTI ts PRINT: RETURN 
19700 REM COMPUTE QUADRANT LAYOUT 
19800 TFLis SELTHEN2O1OO 
LP9O00 z ESTHENSO100 
OOO 
es 
: FORT#1 708: FORJ=17T08:D% (1,0) 20: NEXT: NEXTI 
DK CINT(E7+.5), INT(EB+, 5) ) ed 
IFS4“CEL, E2)-INT (SX (E1,E2) 210) K1L0=0THENZ1 400 
21000 FORI=1T0S% (E1,E2)—-INT(SK(E1,E2) /10) k10 
21100 ES=§FNAG (8): E4=F NA C8) 
S1300 IFDACES,E4) ITHEN 2 £100 
21400 DACES,E4)=1:2NEXxTI 
21600 TFINT(S4(81,E2) /10)~INT(S%(E1,E2) /100) k10=0THEN2Z 2300 
21700 FORT=1T0S%(E1,E2) /10-INT (8% (E1,E2) /100) k10 
21800 ES#FNA(7.9) sE4=FNA (7.9) 
22000 IFDA(ES, £4) < OTHEN2Z 1800 
DACES,E4)=3: NEXTI 
IFINT (S%(E1,E2) 7/100) =OTHEN2Z3100 
FORIT@1TOS%(E1,E2) /100 
JT) 300 
wag ESS=FNA C7. 9) sE4=FNAC7.9) 2 IFDZ(ES,E4) < sOTHENZ 2600 
22900 DACES,E4)=2:NEXTI:RETURN 
235100 RETURN 
235200 REM LONG RANGE SCAN 
23300 IFR C2) =OTHENZ 34600 
23400 PRINT'XL/R Sensors are outkk":GOTO10300 
23600 Y=1:GOSUB12900 
23800 PRINTCHRS$(12):PRINT:PRINT:PRINT"Long Range Sensor Scan" 
23900 PRINT" Quadrant";:PRINT" "sE13"-"3E2 
24100 C2=24: GOSUB19000 . 
24300 IT=E1-1 
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Features 


How do I 


store 
my data? 


This first article will ex- 
plain the different types 
of data that can be 
stored within the Oric 1 
computer. 


Although primarily a 
beginner’s guide, the in- 
formation may help 
those familiar with the 
workings of the Basic. 


What is 
a Variable? 


A variable is so called 
because the value it rep- 
resents is not fixed. The 
opposite of a variable is 
naturally a constant, 
such as 1, 2 and 3. 


Obviously the number 1 
can never be equal to 2, 
or the value “FRED” 
change suddenly to 
“JIM”. 


A variable is known by 
its name, that is a series 
of unique characters de- 


fined by the _ prog- 
rammer. 
For example, LET 


NUMBER = 6 will set 
the variable which is cal- 
led ‘NUMBER’ to a 
value of 6. 
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How to get the most 


At this stage, I should 
explain that only the 
first two characters of a 
name are important, but 
NUMBER is_ more 
meaningful than NU. 


What sorts 
of Variables 
are there? 


There are two main clas- 
ses of variables, num- 
bers and_ character 
strings. 


A number, such as 453 is 
put in any variable name 
with a statement such as 
20 LET B = 453. 

In fact, B can be set to 
any value positive, nega- 
tive, fraction or integer. 


For those non- 
mathematicians, an in- 
teger is any normal num- 
ber such as 882 or —272, 
whereas a__ fractional 
number could be some- 
thing like 0.5 (i.e. a 
half). 


Many arithmetic _in- 
structions are available 
to process your vari- 
ables. Your numeric 
variables and constants 
can be mixed to form ex- 
pressions such as: LET 
C = 6.4* (23 + K)/9. 


Note the use of * to sig- 
nify multiplication and / 


for division. When 
brackets are used in this 
way the calculation in 
the innermost brackets 
is done first. This is im- 
portant because 3* 5+ 8 
is different from 3* (5 + 
8), as by default, multi- 
plication is performed 
before addition. 


The other type of vari- 
able is known as a string 
and is used to store in- 
formation, or sets of 
characters (possibly 
other than just num- 
bers). 


To create a string vari- 
able, you specify a name 
as before, and add $ to 


the right hand side. For 


example, FRED$, 


NAMES$ or A$. 


A string constant is used 
where fixed information 
is to be moved into a 
string variable — or 
printed out. These must 
be put in quotes to dis- 
tinguish them from 
numbers. 


So the statement LET 
A$ = “HELLO” assigns 
the constant HELLO to 
variable A$. 


You cannot do any cal- 
culations with strings as 
you can with numeric 
variables, but there are 


ways of manipulating 
your strings, such as 
chopping them up and 
joining them together 
again. 


Here is a short program 
to demonstrate the two 
uses of the differing 
types of variables. 
Notice that there is no 
problem in using the 
same ‘Name’ — when 
you add the $ to make a 
variable a string, you 
create a completely uni- 
que entity. 
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Features 


out of your ORIC ~1 


20 PRINT “PLEASE 
ENTER YOUR NAME” 


30 INPUT NAME$ 


40 PRINT “AND HOW 
OLD ARE YOU”; 


50 INPUT AGE 


60 PRINT 1983-AGE; 
“WAS A GOOD 
YEAR TO BE BORN” 


70 PRINT “GOOD- 
BYE ”;NAME$ 


In line 60 the numeric 
variable AGE was used 
in a simple calculation to 
find the user’s date of 
birth, whilst NAME$ is 


only used in the PRINT 
at line 70. 


In line 70 you can see a 
demonstration of a con- 
stant being used in con- 
junction with a string 
variable. The program 
always says ‘Goodbye’ 
followed by the name 
previously entered. 


There are other types of 
variable yet to be discus- 
sed, one of which is the 
integer. 


Remember that a vari- 
able such as AGE can 
contain any number in- 
cluding decimal values 
such as -5. The integer, 
which is signified by a % 
sign after the name of 
the variable, can only 
contain whole numbers 
between -—32768 and 
+32767. 


Integer variables like 
K% are less efficient 
from a processing point 
of view and occupy the 
same space as a normal 
‘floating point’ variable. 
They would be useful if 
you wanted to force a 
number to remain 
whole, saving the use of 
the INT function. 


But most importantly, in 
terms of memory usage, 
they are a boon when 
used to specify arrays, 
which we come to next, 
where they use only 


2/Sths of the space that a 
floating point array 
would require. 


Using 
Arrays 


Supposing we wanted to 
record a list of ages 
against names by using 
INPUT. 


Just by using string and 


numeric variables our 
program would look 
like: 

10 INPUT “Whatis 
your name and age”; 
N1$, Al 

20 INPUT “What is 
your name and age”’; 
N2$, A2 etc. 


Thankfully, there are 
such things as arrays, 
whereby lists of data 
(either numeric, string 
or integer) can be stored 
very easily. 


So instead of specifying 


A4% meaning the 
fourth age, we can just 
state AG%(4)» 


Unless you intend to get 
away with less than ten 
ELEMENTS of AG%, 
then you must first (and 
only once) dimension 
the array using the DIM 
statement. 
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Features 


How to get the most 
out of your ORIC-~1 


Here is our revised program 
to ask for 20 names and ages 
and store the information 
away. 


10 DIM NA$(20), AG% 
(20) 


20 FORI=1TO20 


30 INPUT ‘Please enter a 
name and age”; NA&(I), 
AG%(I) 


40 NEXTI 


See how another variable I, is 
used to SUBSCRIPT or iden- 
tify specifically each element 
of the NAME array NA$ and 
the AGE array AG%. 


Each element of a numeric 
array uses up five bytes of 
memory when floating point 
is used. For something like 
storing ages, we only need 
the capability for small inte- 
gers, and the Integer Array 
fits the bill nicely. 


Only two bytes are used for 
each Age stored, and we can 
cope with anyone who is 
younger than Methuselah! 


Our string array will occupy 
at least three bytes per name, 
plus the actual value of the 
name. The three byte over- 
head is always incurred on 


any string and covers the 
actual address and length. 


Later on I will demonstrate 
the savings that you can get 
(In terms of memory, not 
speed) by using strings. 


Fast 
Processing 
Hints 


The fastest processing is al- 
ways done with normal float- 
ing-point variables. Integers 


and constants have to be 
translated by Basic before 
they can be used. 


Normal arrays are quite fast, 
but keep the subscript as a 
variable for the fastest speed. 


The best response time is 
obtained for variables who 
are referenced earliest in 
your program, and a saving 
(both in memory and in prog- 
ram speed) is made by using 
one character data names. 


In a future article, the use 
(and abuse) of DATA will be 
discussed, along with 


methods of memory saving 
and efficient techniques for 
fast programming. 
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Software 


AWARI 


by G. Phillips 


nll 


AWARL is a fairly old game intended for two players. In this version you pit 
your wits against the computer. 

The game is played on a board with 14 holes, arranged in an elliptical format. 
6 holes belong to each side, with the end ones being the special ‘home’ holes. 
Within these holes you sow seeds, initially 3 per hole are provided. 

The objective of the game is to get more seeds in your home than the 
computer has in its. 

Playing consists of taking the seeds from one of your own holes, and distribut- 
ing, one by one, anticlockwise round the holes, starting at the adjacent hole. 
Seeds that fall in your own home hole will obviously stay there. Apart from 
these simple rules, a couple of complications exist. 

1. If, on your turn, you sow seeds which result in your last seed falling into 
your home hole, then you can have a second turn. 

2. If your last seed falls into an empty hole, and the opposite (be it your own 
side or the opponents) hole contains some seeds, then you capture these, plus 
the one you were putting into the empty hole, and add the lot to your home 
hole. 


The game is over when one side or the other has completely empty holes. 
These rules may seem complicated, but after a few games you will get the hang 
of it. 


To enable you to enter moves, the board is numbered 1 to 6 for the machine’s 
holes and 8 to 13 for your own. To specify a move you need only say the hole 
number from which you will be sowing. 

The program looks ahead to find the best possible move, combining that with 
a small random effect. Unless you are already an expert I’m afraid you will be 
beaten hollow! 


i 
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DEFFNA(X) =X+14%(X>14) 900 NEXTAL 
DEFFNE (X)=(X<8) OR(X>13) 910 X=B1i:GOSUB2000:PRINT"My move";B13 
DEFFNX (X) =A(1) +A (2) +A (3) +A (4) 4A(5) tA (6) 911 IFFNX (0) =OORFNY (0) =OTHENSO000 


SZ 49UMQ 2110 


DEFFNY (X)=A (8) +A (9) + (10) +A (11) +A (12) A013) 912 IFY=7THENX=B2:GOSUB2000:PRINT"And "B2 
FORI=1TOS000: NEXT 
920 PRINT: RETURN 


DEFFNR (X) =RND (9) #5-2+X 

DIMA(14) ,B(4,14) 

FORI=1T013:A(1I)=3: NEXT:A(7)=0 
PRINTCHRS (12) :PRINT:PRINTTAB(10)5"A WAR I 
PRINT: PRINT" BY G. PHILLIPS 1983 
FORI=1TO2000: NEXT 

wOSUB4000 

PRINT“Would you like to start?" 
GETZ$: IFZ$< >"Y¥" THENS460 

FORU=1TO2 


> GOSUB4000 


PRIN ("Flease enter your move": INPUTAS: V=VAL (A$) : IFV=OTHENSOO 
IF FNEC(V) THENPRINT”"You can only move from 8 to 13":GOTO300 
IFA(V) =OTHENPRINT"There are no seeds there!":GOTOS00 

X=V: GOSUB2000 

IFFNX (0) =OORFNY (0) =OTHENSOOO 

IFY=14THENIFU=11HENPRINT"Second move allowed..":NEXT 


5S GOSUB4900 


GOSUBS00 
IFFNX (0) =OCORFNY (0) =OTHENSOOO 
Bo Tosoo0 

COMPUTERS MOVE 
B1l=0: B2=0: B3=0: B4=0: §$1=-91: S2=-91: S3=-91: S4=-91 
FORA1I=1T06: IFACA1) =OTHENIO0 
PRIN?" . "5 
GOSUB1 000: X=A1: GOSUB2000: F=0: IF Y< >7THENF=1 : GOTO600 
FORA2=1TO6: IFA(A2) =OTHENS00 
50SUB1000: X=A2: GOSUB2000 
FORAS=8TO13: IFA (AS) =OTHEN700 
GUSUB1000; X=A3: GOSUB2000: IF Y< >14THEN680 
FORA4=8TO13: IFA(A4) =OTHEN6460 
GOSUB1000: X=A4: GOSUB2000: IFA(14) -A(7) >FNR (S4) THENS4=A (14) -A(7) : B4=A4 


. GOSUB1O10 


NEXTA4 

X=B4: GOSUB2000 
1FA(14)-A(7) >FNR (SS) THENSS=A (14) -A(7) s BS=AS 
GOSUB1010 

NEXTAS: X=B3: GOSUB2000 

IFF=11HENS10 

IFA (7) -A(14) SFNR(S2) THENS2=A (7) -A(14) : B2=A2 
GOSUB1010 

NEXTA2 

X=B2: GOSUB2000 
IFA(7)-A(14) >FNR(S1) THENS1=A(7)—-A(14) : B1i=Al1 
GOSUB1010 


915 


1000 
1010 
2000 


> REM PRINTOUT 
2? FORK=1TO1000: NEXT 


4010 
402U 
40350 
4040 
4050 
4066 
4070 


Bi: PRINT 3: AS=STRS$(A(14) ): IFLEN(AS$) >2THENAS=RIGHTS (AS, 2) 


4200 
S600 
Sv0S 
5010 
5020 
5030 
S060 
5080 
5100 
5200 
S210 
5220 


J=1+1:FORZ=1T014:B(T, Z)=A(Z) NEXT: RETURN 
FORZ=11014:A(Z)=B(1, Z) NEXT: T=T—-1: RETURN 

REM MOVE POSITION X 
FORZ=X+1TOX+A(X) s Y=FNA(Z) 2 ACY) =ACY) +12 NEXT 

A(X) =0:Q0=-1 

LF Y=70RY=14THEN2060 

LFA CY) =LANDA(14—-Y) >OTHENG=A (14—-Y) :A(14-Y) =O: ACY) =0 
TF X< 7THENA (7) =A(7) +@+1:GOTO2060 

A(14)=A114) +041 

RETURN 


FRINTCHRS (12) 

PRINT" 13.12 1110 9 8 

PRINT" Your 

PRINT "Home: “3 : FORI=13STOSSTEP—1:AS=STRS (ACT) ) 
IFLEN (AS) >2THENAS=RIGHTS$ (AS, 2) 

PRINTAS"; NEXT:PRINT" Home 

PRINT" 

PRINT" 


PRINTAS"? i"3 sAS=STRS$(A(7)) 
IFLEN (AS) >2THENAS=RIGHTS (AS, 2) 

PRINTAS": 

PRINT"---— 

PRINT“ 

PRINT" i" 3 :FORI=1TO6: A$S=STRS$(A(I)) : IFLEN (AS) >2THENAS=RIGHT$ (AS, 2) 
PRINTAS" i "3 = NEXT 

PRINT 

PRINT" 

PRINT" 

RETURN 

PRINTCHR$ (12) 

1FA(14)=A(7) THENS100 

IFA(14) >A(7) THENSO60 

PRINT"L won by “"A(7)-A(14) 

GOTOS200 

PRINT"You beat me! Though only by"A(14)—-A(7) 
GOTOS200 

PRINT"We have equalised at"A(7) 

PRINT"Would you like to try again?" 

GETZ$: IFZ$="Y¥" THENRUN 

END 


Bunsry] weibolg 
8IBMIJOS 


24400 IFI>E1+1THEN24000 

24500 J=E2-1 

24600 IFJ2E2+1THEN25600 

24700 IFI<1ORI>8THEN246300 

24900 IFIL1ORIs8THEN24100 

25100 IFS%(1,J)<=9THENFRINT" = VESACL g Sig 

25200 IFSAZ(1,d)<=99ANDSZ(1,0) 2=1LOTHENPRINT" + "3S4(1,0)3 
25300 IFS%(1,d) 2=1LOOTHENPRINT" = "3SZH(1I,d)3 

25400 J=J+1:GOTO2Z4600 

25600 PRINT: GOSUB19000: I=I+1 

25900 GOTOZ4400 

26000 FRINT: PRINT: GOTOLOZ00 

26100 PRINT" =: "sO; 2:GOTO2Z5400 

26300 FRINT" = “aye g Nae" os "sO; :GOTO2Z5600 

26500 REM SET COURSE 

26600 PRINTCHRS (12) :PRINT: PRINT: INFUT"Course "sC2 
26800 INPUT"Warp Factor "303 

27000 IFCS<=OTHEN1IO600 

27100 IFCS38THEN246800 

27200 IFR(1) =OTHENZ7600 

27300 IFCS<=. 2THENZ7600 

27400 FRINT' Warp drive damaged":PRINT’Max warp=,. 2":GOTO26600 
27600 P=P-16xC3sN1=INT (8xC3+. 5) sN2=-COS (C2kK5, 14159/180) 
27900 IFABS(N2) >. 01 THEN28100 

28000 N2=0 

28100 NS=SIN(C2K3.14159/180) : IFABS (NS) >. 01 THEN28400 
28300 NS=0 

28400 Al=1 

28500 TFALSNITHENSOS00 

28600 ES*E7:E4=E6:P1=ES+N2: P2=E4+N3 

29000 IFFP 12. SORPL 28. STHENS6200 

29100 IFF1>8. 5THENS46200 

29200 IFP2¢. SORF2>6. STHENS7300 

29400 ITFDZCINT (P1+.5), INT (P2+.5) )=O0ORDZ CINT(FP1+.5), INT CR 2S+, 3) ) =4 THE 
N29700 

29600 GOTOZB200 

29700 DZCINT(ES+. 5), INT(E4+. 5) )=O2:DACINT(P1+.5) INT (P24. S) ) 4 
29900 E7=F1:EB=F2 


3O100 Al=AL+1 
30200 GOTOZBSOO 


30300 Dl=D1+1:E7=INT(E7+.5) sES=INT(E8+. 5) 
30600 FORT=17T07: IFR¢I) =OTHENS1 100 

SOBOO RCI) eR CL) +12 TF R(T) <OTHENS1100 
31000 R(T) 0 

31100 NEXTI:GOTOS8500 

31300 REM 

31400 FORI=E7~-1TOE7+1: IF I< 1ORI 28THENS 2200 
31700 FORJ=E8~-1TOES+1: IF J“ 1ORJ28THENS2100 
32000 IFDZAC1, J) =3THENS3S000 

32100 NEXTI 

32200 NEXTI 

32300 Ci=0:IFSZ(E1,E2) « LOOTHENS2700 
32500 Cl=2:GOTO33600 

32700 IFP>SOOTHENS3600 

32800 C1l=1:G0TOS3600 

33000 Cl=32P=3000: T1=10 

33300 FORI=1T07:R(1)=O0:NEXTI 

33600 RETURN 

33700 REM 

33800 C2=RND (1): IFC2¢. 25THENS4900 

34000 IFC2¢.9THENS6000 
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34100 
34300 
34500 
24900 
35100 
35300 
B5600 
S5BOO 
S900 


ALLO 
4s 
Alay 
41 ooo 
ABO 
G19} 
4210) 
AZIOO 
42500 
He7 Oo 
42800 
42850 
42900 
ASQ00 
43100 
42200 
4S TAO 
434o0 
43600 
43700 


PRINT" xXESPACE STORM&K": IFC1<3THENS4500 
PRINT" Starbase shields Enterprise": GOTO346000 
GOSUBS9100:FRINT” Damaged *x*":R(C2)=R (C2) -SeRND (1) :GOTOZ6000 
FORT=1T07: IFR(1) < :OTHENSS300 
NEXTI: GOTOZ6000 
PRINT" *X*TRUCE KK" s C2=1: GOSUBZ9ISZ00 
PRINT" State of repair improved":R(I)=R(1)+2*RND(1) 
IFR (1) <OTHENRE TURN 
R(T) = 
RETURN 
REM 

=SGN(P 1-1) :S3eE1+S2:E7=INT (Pit. 5) -SaSe1L iso 

© LORSSS@THENZS 900 


STHEN 37 Loo 
reT8) 
TFP22 26. STHENS8000 
S2=SG6N (P2~1) 283 


SUELP7 OO: GOTOSOLOO 
"RINT" Enterprise blocked at's INT(P1) s"="s iNT CPS 
GOTOSO200 


LF STHENS 2 O00 
STHENS 7200 
GOTOLGOOO 


CR=FNA Ch. 9) 

JN OTOSP4O%, SSSO0, S9B00, 4c 2 AOS, ANA, ANG 
PRINT" Wer drive 1 

FPRINT'S/R Sensears” "ssRETURN 
PRINT'L/R Sensors "ss RETURN 
PRINT'Phager Crtel "3 : RETURN 

PRINT 'Fhoton tubes" ss RETURN 

"RINT Damage Cntr 1" ys RETURN 
PRINT’ Course cingete "ss RETURN 
IFS4(E1, ES) ¢ 1LOOTHENRE TURN 

IF SS THEN 1 LOO 

SO SUBS4 

a 3g Mee 

FORT=1TOS%(E1,E2) /100 

Hel ds TP Hs #8 THEN 1800 

H=1:G=G+1 

TFDY UG.) 8 oR THEN4S 1400 

OleG-E7: O2=H-EB 

D4=SOR (O1XO1+02x02) 2 PS=FNA CI (1) -15 
JCD) =I (1) FS: IFCL= 3 THENS 2900 

POPP S/D4: Paro Pe 

PRINT"Enterprise hits"; INT(P6#10)/103 "units" | 
PRINT"Klingon at sector'’:Gs"—-"3H 
FOROG=1TOSOO: NEXT 

NEXTI 


AFP =OTHENS 7400 


RETURN 

REM FHASER CONTROL 

TFR (4) =OTHEN4S 3600 

PRINT" *#* FHASER MALFUNCTION **k":GOTO1O300 
PRINTCHR# (12) :FPRINT"Phaser targeting enabled” 
PRINT"Power status="; INT(P*10)/10; "units" 
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43800 
43805 
44000 
44100 
44200 
44300 
44400 
44700 
44800 
45000 
45200 
45300 
45400 
45600 
45700 
45800 
46000 
46005 
46100 
46200 
46300 
46400 
46700 
46800 
4900 
47000 
47100 
47200 
47300 
47400 
473500 
47600 
47700 
47800 
48000 
48100 
48300 
48500 
48600 
48700 
48800 
48900 
49000 
49100 
49200 
49400 
49500 
49550 
49600 
49700 
49900 
50100 
50200 
50300 
50400 
1) 

50700 


INPUT"Enter units to fire ";C2 

ZAP: ZAP: ZAP: ZAP 

IFC2>PTHEN43700 

IFC2<=OTHEN1 0300 

=P-C2 

IFS%(E1,E2) <100THEN47200 
PS=C2/ INT (S%(E1,E2) /100) :G=1:H=0 
FORI=1T0S%(E1,£2)/100 
H=H+1: IFH“ 9THEN4S300 
H=1:G=G+1 

IFG>8THEN47200 

IFDZ(G,H) >2THEN44800 
@1=G-E7: 02=H-E8 

IFDZ(G,H) < 2THEN4S4800 

D4=SOR (Q1*01+02xO02) 

P6=P5/D4:9 (1) =3 (1) -P6 

PRINT"Klingon at"3G3;"—"sH: "hit" 
SHOOT 

PRINT" ("Ss INT(P6#10) /103"units) Left="sINT(JI(I) *10)/10 
IFJ (1) 2}OTHEN47100 
EXPLODE:FRINT"**xk DESTROYED *xx" 
FORI2=1+1T0S%(E1,E2)/100:J9 (12-1) =J (12) sNEXTI2 
$24(E1,E2)=S%(E1,E2)-100 
K1=K1-1 
D%Z(G,H) =O 

I=I-1 

NEXTI 

IFE1=OTHENS6400 

GOSUB31300 

GOSUR40800 

GOTO10300 

REM FHOTON TORFS 

IFR(S) =OTHEN4S8000 

PRINT'"XX*X FHOTON TUBE MALFUNCTION *xxk":GOTO10300 
IFT 1S0THEN48 300 

PRINT" Torpedoe supply exhausted":GOTO10300 
INFUT"Enter targeting designate";C2 
T1=T1i-1 

N2=-COS (C2x3.14159/180) 

IFARS (N2) >. O1 THEN4SS900 

2=0 

N3=SIN(C2k3.14159/180) 

IFARS (NS) >. O1THENS 9200 

N3=0 

Pi=E7:F2=E8 

P1=P1+N2 

P2=P2+N3 

SOUND1,FP1x50,15 

PRINTINT (F110) /103 "—"3 INT (F210) /10 

IFP 1. SORP 128. 5THENS1900 

IFP2< . SORF2>8.5THENS1900 

IFDACINT (P1+.4), INT (P2+. 4) ) =OTHEN4S9400 
ONDZ CINT (F'1+.4), INT (FP 2+. 4) )GOTO50400, 50700, 51200 
GOT049400 

EXPLODE:PRINT" Star Destroyed":S%(E1,E2)=SZ(E1,£2)-1:GOTOS140 


PRINT" KLINGON DESTROYED":SZ(E1,E2)=S%(E1,E2)-100:K1=K1-1:G0S 
UB31300 


50705 EXPLODE 
51100 GOTOS1400 
FRINT” Starbase Destroye S%(E1,E2)=S%(E1,E2)—- 
INT(Pi+.4), INT(P2+. 4) 
<1=OTHENS46400 
: GOSUB40800:GOTO1L 


FORI9=17T08 

IFS%(19,09 9OTHENLFRINT BACI9, IP: 
3400 IFSACI9,I9 ANDS% (19,09) <=99THENLPRINT SxCI9 IGF) | 
200 ITFSK(I9,I9 OTHENLPRINT' ACTF, IF) § 


OTOLO400 
QOURSE COMPUTER 
eC) ITHENS4 900 
NT"Course computer malfunctian":PRINT" manual conteol requi 
OTOL » > 
TNPUT"Enter vertical coordinate" 
INPUT’ and horizontal coordinate 
TN(CS/C2) X57. 2958 
HENS6000 
IFC4 HENSS 200 
PRINT'Course designate="3INT(C4*k10)/1 
X *.125 
sINT(CS4*10)/10 


GOTOSS600 
10 REM END GAME a 
PRINT: PRIN RINT:PRINT'It is stardat D1 
ingons have been destroyed":PRINT"The Federation 


NT"Power malfunction OTOS7 S00 
4 DESTROYED ENTERPRISE 
PRINT: PRINT: PRINT:PRINT"It is stardate' 
FRINT’ The Enterprise has been wrecked 
RINT" The Federation will be conquer 
NT"Klingons Left = "sK1sPRINT"You are dead!!!" 


nether Game,Captain Kirk ":GETZZ$:PRINT 
S7820 IF ZZ "Y’ THENCLEAR: RUN 
S7830 PRINT: PRINT: PRINT: END 


Software 


High speed sort 


One of the most time con- 
suming tasks for a computer 
to perform is that of sorting 
data into order. When the 
program is written in BASIC, 
not a particularly fast lan- 
guage at the best of times, it 
can take several minutes for 
just fifty items to be sorted. 


This 


sort 


machine code 
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routine is called by Basic to 
sort one dimensional charac- 


ter arrays. It is significantly 
faster than the equivalent 
Basic routine and will sort 50 
items in less than ten seconds. 


The machine code is relocat- 
able (there is no absolute 
JMPs or JSRs) although the 
listing shows it located at 


$1F00 the Basic program puts 
the routine at $400 which is 
the start of the Oric’s spare 
memory area. 


Using the Routine 

1) Create the single dimen- 
sion array to hold the values 
to be sorted using DIM, e.g. 
DIM A$(100). 


2) Fill the array with the 
words or strings you want to 
sort. 


3) Assuming the routine 
has already been entered into 
memory set up the USR vec- 
tor to the start address using 


DEFUSR (POKE34,0: 
POKE35,31 on the Mic- 
rotan). 


4) Jump to the routine us- 
ing: P = USR(A) where A is 
the name of the array to be 


‘sorted with the Dollar sign 


($) removed. 


No action will be taken by the 
routine if: 


a) The array cannot be 
found. 

b) It has more than one 
dimension. 

c) There are less than two 


items in the array. 


The Basic Program below 
sets up the machine code into 
memory and demonstrates 
the sorting of an array of ten 
items. It is readily adaptable 
to cope with arrays of any 
size. 


Note: In the listing £ = # 


— 
4 =~ 
Zi 


Software 


Program Listing 


10 REM ARRAY SORTER 

20 REM SORTS SINGLE DIMENSION CHARACTER ARRAY 

20 REM MIKE BLAYNEY 1983 

40 REM 

50 REM SET UF MACHINE CODE ROUTINE... 

60 FORT=£400 TO £4CE 

79 READ DsFOKEL,D:sNEXT 

80 DATA £AS,£9E,£85,£40, £05, £9F,£85,£41, £05, £84, £85, £42, £A5,£85,£9, 
LAO. 

90 DATA £85,£43, £80, £0,£B1, £40, £08, £05, £42, £D0, £6, £51, £40, £05, £43,£ 
FO, £1C,£C8 7 

199 DATALIS, £B1, £40, £65, £40, £48, £08, £B1,£40, £65, £41,£85,£41,£69, £85 
W £40, £05 

110 DATALAG, £DO, LDC, £45, £41, £05, £01, £D0, £06, £60, £09, £08, £08, £81,£40 
pEGS 4 £4 

120 DATALDO, £F6, £08, £51, £40, £85, £45, £08, £81, £40, £95, £44, £18, £05, £40 
2£69, £7 

120 DATALSS, £4E, £45, £41, £69, £0, £85, £4F, £39, £05, £44, £E9,£1,£85,£46,£ 
AS, £45 

140 DATALES, £0, £350, £02, £85,£47, £00, £6, £5, £46, £09, £2, £90, £08, £A9, £0 
2£L85, £50 

150 DATALAO, £5, £81, £48, £44, £946, £49, £88 : 

160 DATALIO, Fa, £Ce, £04, £40, £FO, £27, £04, £48, FO, £8, £1, £49, £D1,£4C, 
£90, £1) 

170 DATALFO, EF, £A9, £1,885, £50, £40,682, £61, £4E,£49,£C08,£08,£08,£B1,£ 
4E. £AA, £68 

180 DATALSI, £46, £89, £89, £899, £34, £91, £46, £89,£10,fER, £18, £AS, £4E, £69 
£3, £85, £4E 

190 DATALGO, £2, £E56, £L4AF, £AS, £46, £00, £2, £06, £47, £06, £46, £D0, £85, £AS,£ 
47 

20 DATALDO, £RL, £AS, £50, £DO, £85, £450 

204 REM 

205 REM TEST FROGRAM 

206 REM 

3 DIM ABTY) 

FRINTCHRS (12) "Enter 10 random words" 

FORT=OTO9:s INFUTAS CL) s NEXT 

PRIN TCHR ¢ 1i2) 

250 FORLT=OTOS: PRINTAS (OD), s NEXT 

255 FRINT 

240 PRINT NOW SORTING..." 

270 DEFUSR&£4O0 

S80 FeUSR OA) 

290 FORTE0OTOS: PRINTA$ C1), a MEXT 

soo END 
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JIUMQ INQ 7 


$9E 
Aa 
$B4 
$4G 
$42 
$44 
$46 
$45 
$49 
£46 
$40 
$4E 
$5a 
sA 
BY 
SA+1 
BY+1 
YH 
AN 
Nt 
#490 
AN+i 


f #90 


CBYOL YT 


AN 

S2 
.BY >. '¢ 
AN+1 


on 
p 


CBO. 
BY 


BY 
BY+1 
Bv+1 


free 


ov 
EA 
S1 
BY+1 


* EA+1 
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C ## 


WVv+1 


HO 


2 #F1 


CNT 
NO+1 
#20 
SERR 
CHT+1 


& 54 


CHT 
#E2 
SERR 
Fa 
SWAP 


Dy #25 


CW oY 


“a LLY 


CY Ou? 


Cua, 


1 CW OLY 


FAL 


iFAZ 6 
LFAS & 


1FAS 


iFH6 & 


IFAY 


IFAS 8 


iFAS 


IFA SS 


IFAC 
iFAE 
Lr Ae 
1FE1 
FBS 
ifrBS 


fy 


Chas Oh oh has Oh oh ee CH oe ce 


Kunst] weiBoig 


a1eMyjos 


Regulars 


Construction Corner 


Microtan Serial Input / 
Output Option Buffer 
and Status Indicator 


This unit was designed and 
built to:— 


1) Enable indication of the 
status of all RS232 mod- 
em control and data 
lines. 


2) Allow normal RS232 
levels for DCD, DTR, 
DSR, CTS, and RTS. 


3) Allow front panel access 
to all the i/p / o/p option 
lines from Tanex, i.e. 
both RS232 and TTL. 


4) Terminate the option 
with the standard 25W 
D-Type connector. 


The unit was constructed on 
vero-board mounted on the 
front-panel of my system rack 
and linked to Tanex via a 
short length of 14W ribbon 
cable, terminated at both 
ends with a header plug. 
Power is linked in directly 
from the mother-board by a 
4W ribbon cable. 

The circuit allows selection 
from front-panel switches on 
1) Transmitter enable, if a 
modem is not used and 2) 
TTL levels to be used on all 
input lines instead of RS232. 
Use is made of the 25W D- 
Type plug pins normally de- 
signated as “‘secondary chan- 
nel”, Ext Tx Clock, Data 
Rate Select and Busy Lines, 
to accommodate the TTL 
level inputs/outputs and the 
20mA current loop facility as 
well as the RS232 inputs/out- 
puts, see table below. 

N.B. LK 2 on Tanex must be 
left open. 


mo) 

2 
i= 

jo) 


CON MUI FE \NNOF | 


++ = DIFFERENCES 


25W D-TyPeE PLUG CONNECTIONS 


USE IN THIS CASE 


DNODNDDAHAU 
On NHAAHS>< >< 
DO DNNWOTDO 


4 
>< 
o 


+VE 


o 


ae ~ a a a aa 81 


TO MODEM/PERIPHERAL 
FROM MODEM/PERIPHEFRAI 


CONDO DDHU 
On NAA S< <a 
TO DMWwWo 


STANDARD USE 


GROUND 


Sec RTS 
DIR (RS232) 
DaTA_RATE SELECT 


Ext Tx Crock 
Busy 
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MICROTAN I/P/0/P_ OPTION AND INDICATOR PANEL 


14 PIN DIL SOCKET 
TO TANEX E 


a ae TP R5232 25 PIN CANNON 
—— 12 D TYPE PLUG 
(RS232) 
470R 
RxD 4 0 “<i eae RxD (RS232) 
(TTL) 
aah fis 14 
* C B 
at 6 
- C cTs(rs232) 
470R fu s ner gd ed ; 
a ; <B 9 


16 8 cp(Rs232) 


pep 10 DCD Oe 
‘ V ll 12 
= <j 4 b6R(RS232) 


ee 
=" 
CO 

wn 


i=] 
wz 
O 


aT, 14 b> 70 ORTS(TIL) 
10k 8 ‘s NUD ig el At 
in ae ee “—< > TS : 4 
Ris B $ 6 
- RTS(RS232) 


S, RTS 
oxh Lif = 4si50 ! 00 
7 


DtR(RS232) 


p>° = 4 
TxD 2 > om 
(RS2 F (RS232) 
TXD / 4 OTxXD(TTL) 
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Regulars 


If you have formed a club or user 
group in your area for the Oric-1 
please keep us informed of your acti- 
vities and meetings so that we can 
print the information on this page. 
We would be delighted to receive any 
newsletters or circulars that you pro- 
duce. If you feel like dropping us a 
line to tell us of your aims or projects 
and membership rates we will try to 
give you a mention. 

All correspondence to: Club Page, 
Oric Owner Magazine, 3, Club 
Mews, Ely, Cambs. CB7 4NW. 


Coming Next Issue... 


@ Wetalk to Peter Harding, Sales Director of Oric. 
@ Howto get more out of your Oric. 
e Array saving on cassette. 


e Plusallthe regulars: News Brief, Captain Tanex, 
And Forthly, and your programs. 


and Much Much More! 
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Regulars 


Oric Quickies 


3 dimensional 
function plot 


This short routine uses the Hi-Res graphics to plot a 3 dimen- 
sional representation of a function. The function is defined in 
line 5 of the listing and can be altered to give different pictures. 
The program as it stands takes about 10 minutes to run. 


HIRES 


tO HIRES: CLS 

iS PAPER4: INKL 

20 Zs1eX=0 

110 FORQ=s-SOTOSOSTEF. 4 

120 Lee - 

120 Yie® ek INT (SAR CLO00-Ox0) /O) 

140 FOR ReY1iTO-YISTEF-2 

130 S= INT CAS+FNG (SOR CORO+RRR) ) 7 KRO 
140 IF S<=LTHENI9O 

AZO Let 

180 YS: GOSUBI9FOO 

190 NEXT FR 

200 XexX+ 1 

S10 NEXTQ 

380 GOTOZBO 

1900 TFX >2S90RX4 OTHENRE TURN 

2000 TFY 1 990RY2 OTHENRE TURN 

2100 CURSETX+80, 199- C¥+50),1 

M200 RETURN 


We pay £6 for every program printed in this section. Send all entries to: The Editor, Oric Owner, 3, Club Mews, Ely, Cambs. 
CB7 4NW. 
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Subscription 


Why you should 
subscribe to 
ORIC OWNER 


Your Oric 1 is one of the most powerful low-cost computers on the market today. Oric 
Owner is the only magazine totally dedicated to the Oric and its supporting hardware and 
software. 


From issue to issue Oric Owner is able to bring you in-depth information on the Oric, 
advance news on the latest add-ons, superb programs to try and ‘behind thescenes’ 
interviews with the engineers who designed it. 

If you wish to keep ahead of the latest developments and news on the Oric then Oric 
Owner is essential. At only £10 for a year’s subscription of 6 issues (£15 for overseas 
readers) can you afford to be without Oric Owner? 


SUBSCRIBE TODAY! 


subseription form 
Please send me the next 6 issues of ORIC OWNER 


for£10 
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_ Regulars 


if 


Dear Sir, 


I have recently received my Oric and am experiencing 
great difficulty in loading cassettes in. I have tried a 
number of cassette recorders and assorted leads with 
little success. The sound seems to be getting to the Oric 
because it comes out of the built in speaker quite loudly. 
Is there anything else you can suggest that I should do? 


Yours faithfully, 
D. Turner, Ealing, London. 


Editor: From your description of the problem I would 
immediately suspect your lead. The pins on the socket at 
the back of the Oric have a number of functions and if 
they are incorrectly connected up then all sorts of nasty 
things can happen. The socket connections are as fol- 
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Tape out 
Ground Oo 
Tape in 1{O 
Sound (Ext.spkr) O 
Sound (Ext.spkr) 6 

= Relay Contacts 


Many 5 pin DIN leads have pins 4 and 5 shorted 
together. These will not work correctly on the Oric and 
should be modified. 

If you find that when a program is loaded in half of it is 
missing or corrupted it is a safe bet that the volume is 
either too low or too high so try varying it. As a general 
rule Oric likes the sound to be fairly loud with lots of 
treble. When a load is taking place you should be able to 
hear the sound very faintly from the Oric’s speaker. 


Dear Sir, 


I have just received my Oric a fortnight earlier than 
expected (!). So far I have been delighted with the 
machine as it seems to do a lot more than stated in the 
adverts. One thing that concerns me is the mixed com- 
ments that some of the reviews in the magazines have 
had. Can you put my mind at rest? 


R. Wilson, Liverpool. 


Editor: Due to the keenness of many of the magazines to 
review the computer, Oric Products were forced to send 
out pre-production models. These had all sorts of nasties 
in them such as bad T. V. signals and preliminary ROMs. 
I think that some of the reviewers did not realise this and 
were perhaps harder on the machine than necessary. It is 
probable that they will be taking a second look at the 
machine when they have more information and full pro- 
duction models of it. Some of the comments were 
obviously due to lack of information than any fault of the 
machine. At least two reviews said that you cannot have 
more than two colours on the screen at any time, this, of 
course, is complete nonsense as the Demo tape supplied 
plainly shows that all the colours can be used in all 
modes. 


All letters for the I/O Page should be sent to: 


The Editor, Oric Owner Magazine, 3, Club Mews, Ely, Cambs. CB7 4NW. 
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Congratulations on 
the launch of the 
ORIC-1 Micro and 
the ORIC OWNER 
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A FANTASTIC MACHINE ATA 
FANTASTIC PRICE 


WE ARE THE FIRST AND LARGEST UK 
WHOLESALER FOR ORIC (TRADE ONLY) 


Are You An On: Dealer? ahs Our Trade Hotline 0256-3232 
And Become One Today! 
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Peripherals Ud 


61, New Market Square, Basingstoke, Hants. Telephone 0256-56468 (6 lines) or Telex 859669 MICRO PG 


ORIC SOFTWARE 
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A 36K adventure game that will test your 
intelligence and patience for hours. Find 
the 12 hidden signs of the zodiac to dis- 
cover incredible treasures. Can you ward 
off the angry Yeti, what is the meaning of 
the radio that plays the ‘Archers’ over and 
over again (through your loudspeaker!)? 


Only £9.99 inc. V.A.T. 48K only. 
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Oric-~Base 


A full data management and file retrieval package. Allows sorting of 
data reports to be printed, conditional data retrieval and selective 


updating. 
Only £15 inc. V.A.T. 48K only. 


Quantity 
Oric-Chess @ £9.99 
Zodiac @ £9.99 
Oric-Base @ £15 
Postage per cassette is 40p. 


All cheques payable to Tansoft Ltd., 3, Club Mews, Ely, Cambs. CB7 4NW. 
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